COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(comment regpdl 10000. specpdl 2000. fxpdl 1000. flpdl 500.)
C00006 ENDMK
C⊗;
(comment regpdl 10000. specpdl 2000. fxpdl 1000. flpdl 500.)
(progn
 (help)
 (fasload demon fas dsk (aid rpg))
 (fasload backq fas dsk (mac lsp))
 (fasload sharpm fas dsk (mac lsp))
 (fasload edit fas dsk (mac lsp))
 (fasload match fas dsk (mac lsp))
 (fasload let fas dsk (mac lsp))
 (fasload defvst fas dsk (mac lsp))
 (fasload setf fas dsk (mac lsp))
 (fasload struct fas dsk (mac lsp))
 (fasload defmac fas dsk (mac lsp))
 (fasload format mit dsk (mac lsp))
 (fasload loop fas dsk (mac lsp))
 (fasload debug fas dsk (mac lsp))
 (fasload trace fas dsk (mac lsp))
 (setq em:no-init t)
 (fasload emaclsp fas dsk (mac lsp))
 (fasload eaid fas dsk (mac lsp))
;(herald "CORLL" "")
;(load '|corll.fas|)
;(herald "MRSREP" "")
;(load '|mrsrep.fas|)
;(herald "MRS" "")
;(load '|mrs.fas|)
;(herald "MRSS" "")
;(load '|mrss.fas|)
;(herald "MRSPL" "")
;(load '|mrspl.fas|)
;(herald "MRSMETA" "")
;(load '|mrsmeta.fas|)
;(herald "MRSLOGIC" "")
;(load '|mrslogic.fas|)
;(herald "MRSDEMON" "")
;(load '|mrsdemon.fas|)



;; translated from score:<csd.mrs.mac>make.log on Mar 18 1983
(fasload macros fas dsk (mrs lsp))
(fasload common fas dsk (mrs lsp))
(fasload interface fas dsk (mrs lsp))
(fasload proprep fas dsk (mrs lsp))
(fasload plist fas dsk (mrs lsp))
(fasload match fas dsk (mrs lsp))
(fasload kb fas dsk (mrs lsp))
(fasload next fas dsk (mrs lsp))
(fasload meta fas dsk (mrs lsp))
(fasload demons fas dsk (mrs lsp))
(fasload bc fas dsk (mrs lsp))
(fasload bckb fas dsk (mrs lsp))
(fasload bcsb fas dsk (mrs lsp))
(fasload fc fas dsk (mrs lsp))
(fasload fckb fas dsk (mrs lsp))
(fasload fcsb fas dsk (mrs lsp))
(fasload cnf fas dsk (mrs lsp))
(fasload resolution fas dsk (mrs lsp))
(fasload arithmetic fas dsk (mrs lsp))
(fasload ask fas dsk (mrs lsp))
(fasload tm fas dsk (mrs lsp))

 (grindef)
 (close infile)
 (inpush -1)
 (gc)
 (suspend '|save sys MRS|)
;(cond ((and (not 
;	      (equal (setq udir (status udir)) '(mrs lsp)))
;	    (setq inifile
;		  (probef (append '(mrs ini dsk) (ncons udir)))))
;	(load inifile)))
 (cond (si:ecalledp
	(setq -em:herald- ())
	(em:mail-interface-initialize)))
 (terpri)(princ '|MRS!|)(terpri))